home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / menu.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  3.1 KB  |  90 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include "menu.h"
  10. #include "list.h"
  11. #include "grplist.h"
  12. #include "md.h"
  13. #include "manygrp.h"
  14. //---------------------------------------------------------------------------
  15. #pragma resource "*.dfm"
  16. TMainForm *MainForm;
  17. //---------------------------------------------------------------------------
  18. __fastcall TMainForm::TMainForm(TComponent* Owner)
  19.     : TForm(Owner)
  20. {
  21. }
  22. //---------------------------------------------------------------------------
  23. void TMainForm::SetReport(TQuickRep * Value)
  24. {
  25.     FReport = Value;
  26.    Description->Lines->Assign(Report->Description);
  27. }
  28. //---------------------------------------------------------------------------
  29. void __fastcall TMainForm::FormActivate(TObject *Sender)
  30. {
  31.     if (Description->Lines->Count == 0)
  32.             SimpleListClick(this);
  33. }
  34. //---------------------------------------------------------------------------
  35. void __fastcall TMainForm::SimpleListClick(TObject *Sender)
  36. {
  37.     Report = ListForm->QuickRep;
  38. }
  39. //---------------------------------------------------------------------------
  40. void __fastcall TMainForm::GroupedListClick(TObject *Sender)
  41. {
  42.     Report = GrpListForm->QuickRep;
  43. }
  44. //---------------------------------------------------------------------------
  45. void __fastcall TMainForm::MasterDetailClick(TObject *Sender)
  46. {
  47.     Report = MDForm->QuickRep;
  48. }
  49. //---------------------------------------------------------------------------
  50. void __fastcall TMainForm::SQLMasterDetailClick(TObject *Sender)
  51. {
  52.     Report = ManyGrpForm->QuickRep;
  53. }
  54. //---------------------------------------------------------------------------
  55. void __fastcall TMainForm::CompositeClick(TObject *Sender)
  56. {
  57.   Report = CompositeReport;    
  58. }
  59. //---------------------------------------------------------------------------
  60. void __fastcall TMainForm::QRCompositeReport1AddReports(TObject *Sender)
  61. {
  62.     QRCompositeReport1->Reports->Add(ListForm->QuickRep);    
  63.     QRCompositeReport1->Reports->Add(GrpListForm->QuickRep);    
  64.     QRCompositeReport1->Reports->Add(MDForm->QuickRep);    
  65.     QRCompositeReport1->Reports->Add(ManyGrpForm->QuickRep);    
  66. }
  67. //---------------------------------------------------------------------------
  68. void __fastcall TMainForm::ExitClick(TObject *Sender)
  69. {
  70.     Close();    
  71. }
  72. //---------------------------------------------------------------------------
  73. void __fastcall TMainForm::PrintClick(TObject *Sender)
  74. {
  75.     if (Report == CompositeReport)
  76.        QRCompositeReport1->Print();
  77.    else
  78.        Report->Print();    
  79. }
  80. //---------------------------------------------------------------------------
  81. void __fastcall TMainForm::PreviewClick(TObject *Sender)
  82. {
  83.     if (Report == CompositeReport)
  84.        QRCompositeReport1->Preview();
  85.    else
  86.        Report->Preview();    
  87. }
  88. //---------------------------------------------------------------------------
  89.  
  90.